home *** CD-ROM | disk | FTP | other *** search
/ Student Private Syndrome 3 / Student Private Syndrome 3.iso / private / main / main.dxr / 00001.ls next >
Encoding:
Text File  |  1996-06-21  |  1.4 KB  |  58 lines
  1. on startMovie
  2.   global sndname, seclick
  3.   cursor(4)
  4.   set sndname to "@::SOUND:S11.AIF"
  5.   set seclick to "SE01"
  6. end
  7.  
  8. on pushbutton
  9.   set ch to clickOn()
  10.   set cname1 to item 1 of the name of cast the castNum of sprite ch
  11.   set cname2 to item 2 of the name of cast the castNum of sprite ch
  12.   repeat while the stillDown
  13.     if rollOver(ch) then
  14.       set the castNum of sprite ch to the number of cast (cname1 & "," & "ON")
  15.     else
  16.       set the castNum of sprite ch to the number of cast (cname1 & "," & cname2)
  17.     end if
  18.     updateStage()
  19.   end repeat
  20.   if rollOver(ch) then
  21.     set the castNum of sprite ch to the number of cast (cname1 & "," & "ON")
  22.     set ret to 1
  23.   else
  24.     set the castNum of sprite ch to the number of cast (cname1 & "," & cname2)
  25.     set ret to 0
  26.   end if
  27.   updateStage()
  28.   return ret
  29. end
  30.  
  31. on blinkbutton
  32.   global splist
  33.   repeat with i in splist
  34.     set cname1 to item 1 of the name of cast the castNum of sprite i
  35.     set cname2 to value(item 2 of the name of cast the castNum of sprite i)
  36.     if cname2 = 2 then
  37.       set cname2 to 1
  38.     else
  39.       set cname2 to cname2 + 1
  40.     end if
  41.     set the castNum of sprite i to the number of cast (cname1 & "," & cname2)
  42.   end repeat
  43. end
  44.  
  45. on exitmenu
  46.   global splist
  47.   repeat with i in splist
  48.     puppetSprite(i, 0)
  49.   end repeat
  50. end
  51.  
  52. on exitquit
  53.   global splist
  54.   repeat with i in splist
  55.     puppetSprite(i, 0)
  56.   end repeat
  57. end
  58.